Rated
Viewed 9474 times

    Related Categories

    Reading Treeview Children

    Kimmy

    This is the code i use to read the children items from a treeview. You may have a treeview like this:

     Main Node
       + The Parent
        | - This is the first child
        | - This is the second child

    just do:

    Call ReadNodes("The Parent")

    Note: this name MUST be the Key name/Index of the node to read


    sub ReadNodes(sName as Variant)
       dim tvn as node

       set tvn = treeview1.nodes(sName)

       chil = tvn.Children: If chil = 0 Then Exit Sub     ' if no children the exit
       Set tvn = tvn.Child.FirstSibling
       
       For a = 1 To chil

          msgbox tvn.text  ' display a message with the child nodes name

          set tvn = tvn.next
       next
    End Sub

    Till the Roof comes off Till the Lights go out Till my Legs give out Can't shut my mouth I will not fall, my Wisdoms all.